home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / i / image_desk / imagedeskv1.5.dms / in.adf / imagedesk / rexx / GetPage1.IDesk < prev    next >
Encoding:
Text File  |  1995-04-06  |  454 b   |  26 lines
  1. /* Reads first n Catalog Entries */
  2.  
  3. /* --------------------- standard startup ----------------------- */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  8.     ADDRESS IDESK_REXXPORT
  9.  
  10. /* -------------------------------------------------------------- */
  11.  
  12. IDGETFILE '"Select catalog file"'
  13. if (RC > 0) then exit
  14.  
  15. filename = RESULT
  16.  
  17. GETSYSINFO DESKSPACE
  18.  
  19. deskspace = RESULT
  20.  
  21. CLEANDESK
  22. if (RC > 0) then exit
  23.  
  24. OPENCAT '"'||filename||'"' 1 deskspace
  25.  
  26.